library(tidyverse)
── Attaching packages ──────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 2.2.1     ✔ purrr   0.2.4
✔ tibble  1.4.2     ✔ dplyr   0.7.4
✔ tidyr   0.8.0     ✔ stringr 1.3.0
✔ readr   1.1.1     ✔ forcats 0.3.0
── Conflicts ─────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
library(here)
library(plotly)

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout
dados <- read_csv(here("data/series_from_imdb.csv"), 
                    progress = FALSE,
                    col_types = cols(.default = col_double(), 
                                     series_name = col_character(), 
                                     episode = col_character(), 
                                     url = col_character(),
                                     season = col_character()))
    
    dados_escolhidos <- dados %>% 
    filter(series_name %in% c("The Blacklist",
                              "House of Cards",
                              "Vikings"))
    
dados_escolhidos %>%
  mutate('User Rating' = user_rating,'Season Ep' = season_ep,'Series' = series_name,'User Votes' = user_votes)
  #mutate(user_votes = "Numero de votos dos usuarios",user_rating = "Voto episódio")
dados_escolhidos %>%
  arrange(-user_rating) %>%
  plot_ly(x = ~user_rating,
             y = ~season_ep,
             color = ~series_name,
             size = ~user_votes,
            text = ~paste("Pontuação Episódio:", user_rating,
                          "\nQuantidade de votos dos usuarios:",user_votes))
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

NA
  dados_escolhidos %>%
  mutate('User Rating' = user_rating,
         'Season Ep' = season_ep,
         'Serie' = series_name,
         'User Votes' = user_votes) %>%
  arrange(-`User Rating`) %>%
  ggplot(aes(x = `User Rating`,
             y =`Season Ep`,
             color = `Serie`,
             size = `User Votes`)) +
  geom_jitter(width = 1.3) +
  labs(y = "Notas por episódio", x ="Episódio por temporada")

##ggplotly(j)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoaGVyZSkKbGlicmFyeShwbG90bHkpCmBgYAoKYGBge3J9CmRhZG9zIDwtIHJlYWRfY3N2KGhlcmUoImRhdGEvc2VyaWVzX2Zyb21faW1kYi5jc3YiKSwgCiAgICAgICAgICAgICAgICAgICAgcHJvZ3Jlc3MgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICBjb2xfdHlwZXMgPSBjb2xzKC5kZWZhdWx0ID0gY29sX2RvdWJsZSgpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlcmllc19uYW1lID0gY29sX2NoYXJhY3RlcigpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVwaXNvZGUgPSBjb2xfY2hhcmFjdGVyKCksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdXJsID0gY29sX2NoYXJhY3RlcigpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vhc29uID0gY29sX2NoYXJhY3RlcigpKSkKICAgIApgYGAKCgpgYGB7cn0KICAgIGRhZG9zX2VzY29saGlkb3MgPC0gZGFkb3MgJT4lIAogICAgZmlsdGVyKHNlcmllc19uYW1lICVpbiUgYygiVGhlIEJsYWNrbGlzdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJIb3VzZSBvZiBDYXJkcyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJWaWtpbmdzIikpCiAgICAKYGBgCgpgYGB7cn0KZGFkb3NfZXNjb2xoaWRvcyAlPiUKICBtdXRhdGUoJ1VzZXIgUmF0aW5nJyA9IHVzZXJfcmF0aW5nLCdTZWFzb24gRXAnID0gc2Vhc29uX2VwLCdTZXJpZXMnID0gc2VyaWVzX25hbWUsJ1VzZXIgVm90ZXMnID0gdXNlcl92b3RlcykKCmBgYAoKYGBge3J9CmRhZG9zX2VzY29saGlkb3MgJT4lCiAgYXJyYW5nZSgtdXNlcl9yYXRpbmcpICU+JQogIHBsb3RfbHkoeCA9IH51c2VyX3JhdGluZywKICAgICAgICAgICAgIHkgPSB+c2Vhc29uX2VwLAogICAgICAgICAgICAgY29sb3IgPSB+c2VyaWVzX25hbWUsCiAgICAgICAgICAgICBzaXplID0gfnVzZXJfdm90ZXMsCiAgICAgICAgICAgIHRleHQgPSB+cGFzdGUoIlBvbnR1YcOnw6NvIEVwaXPDs2RpbzoiLCB1c2VyX3JhdGluZywKICAgICAgICAgICAgICAgICAgICAgICAgICAiXG5RdWFudGlkYWRlIGRlIHZvdG9zIGRvcyB1c3VhcmlvczoiLHVzZXJfdm90ZXMpKQogICAgICAgICAgICAKYGBgCgoKCmBgYHtyfQogIGRhZG9zX2VzY29saGlkb3MgJT4lCiAgbXV0YXRlKCdVc2VyIFJhdGluZycgPSB1c2VyX3JhdGluZywKICAgICAgICAgJ1NlYXNvbiBFcCcgPSBzZWFzb25fZXAsCiAgICAgICAgICdTZXJpZScgPSBzZXJpZXNfbmFtZSwKICAgICAgICAgJ1VzZXIgVm90ZXMnID0gdXNlcl92b3RlcykgJT4lCiAgYXJyYW5nZSgtYFVzZXIgUmF0aW5nYCkgJT4lCiAgZ2dwbG90KGFlcyh4ID0gYFVzZXIgUmF0aW5nYCwKICAgICAgICAgICAgIHkgPWBTZWFzb24gRXBgLAogICAgICAgICAgICAgY29sb3IgPSBgU2VyaWVgLAogICAgICAgICAgICAgc2l6ZSA9IGBVc2VyIFZvdGVzYCkpICsKICBnZW9tX2ppdHRlcih3aWR0aCA9IDEuMykgKwogIGxhYnMoeSA9ICJOb3RhcyBwb3IgZXBpc8OzZGlvIiwgeCA9IkVwaXPDs2RpbyBwb3IgdGVtcG9yYWRhIikKCiMjZ2dwbG90bHkoaikKYGBgCgo=